(*~\Глагол\Отделы\Поле~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ Черта;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: горизонтальная или вертикальная черта
 *============================================================================*)
ИСПОЛЬЗУЕТ 
  Надел,
  Поле,
  Окно ИЗ "..\Обмен\",
  Ввод ИЗ "..\Обмен\";

ВИД
  Доступ-=ДОСТУП К Вид;
  Вид-=НАБОР(Надел.Вид) КОН;

(******************************************************************************)
ЗАДАЧА Приём(надел:Надел.Доступ; посылка+:Ввод.Посылка);
(* приём посылок извне *)
УКАЗ
  ДЛЯ посылка ВИДА
  | Поле.Отрисовка: Окно.Черта(надел.вс,надел.лк,надел.нс,надел.пк)
  ИНАЧЕ
  КОН
КОН Приём;

(******************************************************************************)
ЗАДАЧА Создать-(верх,лево,строк,колонок:ЦЕЛ):Доступ;
ПЕР
  черта:Доступ;
УКАЗ
  СОЗДАТЬ(черта);
  Надел.Подготовить(черта,верх,лево,строк,колонок,{Надел.прГлухой},Приём);
  ВОЗВРАТ черта
КОН Создать;

КОН Черта.